home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / Referenceƒ / MacHelp / Part 1 / User Preferences / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-13  |  2.4 KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3608</cardID>
  8.     <listID>2952</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on startUp
  17. getHomeInfo
  18. pass startUp -- to a startUp XCMD, if present
  19. end startUp
  20.  
  21. on resume
  22. getHomeInfo
  23. pass resume -- to a resume XCMD, if present
  24. end resume
  25.  
  26. on getHomeInfo
  27. global stacks,applications,documents,userName
  28. set lockScreen to true
  29. set lockMessages to true
  30. push this card
  31. go to card "User Preferences" of stack "Home"
  32. put card field "User Name" into userName
  33. set userLevel to card field "User Level"
  34. set powerKeys to the hilite of button "Power Keys"
  35. set blindTyping to the hilite of button "Blind Typing"
  36. put field "paths" of card "stacks" into stacks
  37. put field "paths" of card "applications" into applications
  38. put field "paths" of card "documents" into documents
  39. pop card
  40. set lockScreen to false
  41. set lockMessages to false
  42. end getHomeInfo
  43.  
  44. on searchScript pattern,stackName -- search all scripts of a stack
  45. set lockMessages to true
  46. if stackName is not empty then go to stack stackName
  47.  
  48. if the script of this stack contains pattern
  49. then edit script of this stack
  50.  
  51. repeat with i = 1 to the number of bkgnds
  52. go to card 1 of bkgnd i
  53. if the script of this bkgnd contains pattern
  54. then edit script of bkgnd
  55.  
  56. repeat with j = 1 to the number of bkgnd buttons
  57. if the script of bkgnd button j contains pattern
  58. then edit script of bkgnd button j
  59. end repeat
  60.  
  61. repeat with j = 1 to the number of bkgnd fields
  62. if the script of bkgnd field j contains pattern
  63. then edit script of bkgnd field j
  64. end repeat
  65.  
  66. end repeat
  67.  
  68. repeat with i = 1 to the number of cards
  69. go card i
  70. if the script of this card contains pattern
  71. then edit script of this card
  72.  
  73. repeat with j = 1 to the number of card buttons
  74. if the script of card button j contains pattern
  75. then edit script of card button j
  76. end repeat
  77.  
  78. repeat with j = 1 to the number of card fields
  79. if the script of card field j contains pattern
  80. then edit script of card field j
  81. end repeat
  82.  
  83. end repeat
  84. set lockMessages to false
  85. end searchScript
  86.  
  87. </script>
  88.     <background id="2615" file="background_2615.xml" name="" />
  89.     <card id="3608" file="card_3608.xml" marked="false" name="User Preferences" owner="2615" />
  90. </stack>
  91.